10 REM*****************************
20 REM*       VORPROGRAMM         *
30 REM*****************************
40 :
50 IFPEEK(49153)<>26THENLOAD"MAS.MS",8,1
60 IFPEEK(34816)<>40THENLOAD"MAS.ZS",8,1
70 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR1:POKE53272,18
80 POKE648,132:POKE53280,15:POKE53281,15:SYS49152:POKE657,128
90 POKE56,132:CLR:POKE650,128:POKE808,225
100 I=1:J=1:I2=1:AS=1:SP=1:MP=1:AF=1:MZ=1:ZE=1:S2=1:Z2=1:NF=1:EF=0:VF=0:XF=0:T=0
110 L$="                     ":BU$="]^\[220][168]./()'&-+":GN=0:GP=0:NA=0:WV=0:GV=0
120 S$="----------":EV=0:NV=0:LF=0:D2=0::DN=0:L2=0:D2$="":NT=51259:SA=-4:SA$="4"
130 X$="":EX$="":CR$=CHR$(13):E$="":X2$="":SF=1:DF=0:IA=0:R2=0:X%=0:F=0:PS=0
140 GF=0:GF$(0)="[196]ISKETTENLAUFWERK":GF$(1)="[196]RUCKER":A$="":K=1
150 DIMNA$(25,3),N2$(25,3),VR$(25,3),V2$(25,3),N$(1872),P(15),SP(30,3),N(2)
160 DIMIH$(15,2),NM$(2),HM(4,1),LI$(45),DN(25,3),DP(25,3),DN$(25),DP$(25),NF(2)
170 FORI=0TO4:READHM(I,0):READHM(I,1):NEXT
180 DATA1,9,10,8,18,7,25,8,33,6
190 PRINTCHR$(14)"[147]":GOSUB450:PRINT"[146]";:FORI=1TO40:PRINT"[163]";:NEXT
200 _S0,20,"[176]";:FORI=1TO20:PRINT"[192]";:NEXT
210 PRINT"[178][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][174][221]"SPC(20)"[221]"SPC(9)"[221]       [221][173]";
220 FORI=1TO20:PRINT"[192]";:NEXT:PRINT"[177][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][189]";
230 GOSUB710:GOSUB770:GOTO1200
240 :
250 REM*****************************
260 REM*      UNTERPROGRAMME       *
270 REM*****************************
280 :
290 >>>       MENUE-WINDOWS          <<<
300 SP=1:ZE=1
310 _ISP(SP,0),SP(SP,1)+ZE-1,SP(SP,2),1,0
320 GETX$:IFX$=""THEN320
330 _OX$,"_"+CR$,X%:IFX%<>0OR(X$="[136]"ANDEF=1ORX$="[133]"ANDEF=1)THEN420
340 _OX$,"[145][157]",X%:IFX%<>0THEN360
350 GOTO320
360 Z2=ZE:S2=SP:IFX$=""THENZE=ZE+1:IFZE>SP(SP,3)THENZE=1
370 IFX$="[145]"THENZE=ZE-1:IFZE=0THENZE=SP(SP,3)
380 IFX$=""THENSP=SP+1:IFSP>ASTHENSP=1
390 IFX$="[157]"THENSP=SP-1:IFSP=0THENSP=AS
400 IFZE>SP(SP,3)THENSP=S2
410 _ISP(S2,0),SP(S2,1)+Z2-1,SP(S2,2),1,0:GOTO310
420 _ISP(SP,0),SP(SP,1)+ZE-1,SP(SP,2),1,0:EF=0:RETURN
430 :
440 >>>        MENUE-ZEILE           <<<
450 _S0,0,"  [197][201][206][199][193][194][197][160] [218][197][201][199][197][206][160][160][196][193][212][197][201][160][160][197][216][212][210][193][211]  [197][206][196][197]  ";:RETURN
460 :
470 >>>           CANCEL             <<<
480 _R:GOSUB450:GOSUB710:GOSUB770:GOTO1070
490 :
500 >>>       GERAETE-CHECK          <<<
510 X$="":POKE650,64:POKE768,61:OPEN1,8+GF*SA,15:CLOSE1
520 POKE768,139:IFST<>-128ANDDF=0THENPOKE650,128:RETURN
530 IFST<>-128THENPOKE650,128:_C:DF=0:RETURN
540 IFDF=0THEN:_W2,5,35,9,2:_S16,7,"[194]ITTE"
550 IFDF=0THEN:_S4+GF*5,9,GF$(GF)" EINSCHALTEN [220]":_S15,11,"'[212]ASTE'":DF=1
560 GOSUB630:IFX$="_"ORX$=""THENPOKE650,128:_C:DF=0:RETURN
570 GOTO510
580 :
590 >>>      DISKETTENFEHLER         <<<
600 OPEN3,8,15:INPUT#3,ER,ER$,E1,E2:CLOSE3:RETURN
610 :
620 >>>          TASTE              <<<
630 GETX$:IFX$=""THEN630
640 RETURN
650 :
660 >>>       FEHLER AUSGABE         <<<
670 _W2,6,36,7,2:_S4,8,"[196]ISKETTENFEHLER:":_S3,10,ER","ER$","E1","E2""
680 GOSUB630:_C:RETURN
690 :
700 >>>    TASTENFELD LOESCHEN       <<<
710 _I0,23,40,2,1:_I0,23,40,2,0:RETURN
720 :
730 >>>    TASTENFELD ANZEIGE 1      <<<
740 GOSUB710:_S1,23,"< _ >:[218]UR^CK":_S1,24,"<[210]/[211]>:[205]EN^":RETURN
750 :
760 >>>    TASTENFELD ANZEIGE 2      <<<
770 _S4,24,"[205][193][211] 1.0  VON [198]RANK [207]]WALD - 1989":RETURN
780 :
790 >>>        FAECHERWAHL           <<<
800 _W6,3,27,15,6:_A7,4,6,NA$(0,3),13:_A20,4,6,NA$(13,3),13
810 AS=2:SP(1,0)=7:SP(1,1)=4:SP(1,2)=12:IFAF<=13THENSP(1,3)=AF:AS=1:GOTO830
820 SP(1,3)=13:SP(2,0)=20:SP(2,1)=4:SP(2,2)=12:SP(2,3)=AF-13:AS=2
830 GOSUB300:NF=(SP-1)*13+ZE-1:PS=NF*72:RETURN
840 :
850 >>>       INHALT LADEN           <<<
860 GF=0:GOSUB510:IFX$="_"ORX$=""THENRETURN
870 X$="":OPEN2,8,2,"INHALT,S,R":CLOSE2:GOSUB600:IFER=62THENIA=0:ER=0:RETURN
880 IFER<>0THENGOSUB670:RETURN
890 OPEN2,8,2,"INHALT,S,R":INPUT#2,IA:FORI=1TOIA:FORJ=0TO2
900 INPUT#2,IH$(I,J):NEXTJ,I:CLOSE2:RETURN
910 :
920 >>>       EINEN MOMENT           <<<
930 _W10,8,20,5,0:_S12,10,"[144][197]INEN [205]OMENT ...":RETURN
940 :
950 >>>    DURCHSCHNITTSNOTE        <<<
960 GV=0:DN(NF,3)=0:DP(NF,3)=0:FORI=0TO2:NN=NF*72+I*24+1
970 IFN$(NN)=""THENNF(I)=0:WV=0:DN(NF,I)=0:DP(NF,I)=0:GOTO990
980 NF(I)=1:_DN$(NN),24,0,DP(NF,I):_DN$(NN),24,1,DN(NF,I):WV=VAL(VR$(NF,I))
990 DN(NF,3)=DN(NF,3)+WV*DN(NF,I)
1000 DP(NF,3)=DP(NF,3)+VAL(VR$(NF,I))*DP(NF,I):GV=GV+WV:NEXT:IFGV=0THENRETURN
1010 DN(NF,3)=INT((DN(NF,3)/GV)*100+.5)/100:DP(NF,3)=INT(DP(NF,3)/GV+.5):RETURN
1020 :
1030 REM****************************
1040 REM*       HAUPTMENUE         *
1050 REM****************************
1060 :
1070 MP=0
1080 _IHM(MP,0),0,HM(MP,1),1,0
1090 GOSUB630:IFX$=CR$THENMP=MP+1:GOSUB740:ONMPGOTO2610,3070,1200,3660,3850
1100 IFX$=""ORX$="[157]"THEN1120
1110 GOTO1090
1120 MZ=MP:IFX$=""THENMP=MP+1:IFMP=5THENMP=0
1130 IFX$="[157]"THENMP=MP-1:IFMP=-1THENMP=4
1140 _IHM(MZ,0),0,HM(MZ,1),1,0:GOTO1080
1150 :
1160 REM****************************
1170 REM*          DATEI           *
1180 REM****************************
1190 :
1200 GOSUB930:VF=0:LF=0:L2=0:GF=0:IFSF=1THENGOSUB710:GOSUB770
1210 IFX$<>"_"THENFORI=0TO25:FORJ=0TO3:N2$(I,J)="":V2$(I,J)="":NEXTJ,I:XF=1
1220 GOSUB860:_C:IFSF=0ANDX$<>""THEN480
1230 IFX$<>""THEN1200
1240 IFIA=0THENR2=1:IA=1:GOSUB710:GOSUB740:GOTO1500
1250 _W13,7,12,6,6:_S14,8,"[146][204]ADEN":_S14,9,"[206]EUEINGABE":_S14,10,"[214]ERBESSERN"
1260 _S14,11,"[204]\SCHEN":AS=1:SP(1,0)=14:SP(1,1)=8:SP(1,2)=10:SP(1,3)=4:GOSUB300
1270 IF(X$="_"ORX$="")ANDSF=0THEN480
1280 IFX$="_"ORX$=""OR(ZE=3ANDSF=1)THEN1260
1290 GOSUB740
1300 IFZE=1THEN2190
1310 IFZE=2ANDIA+1=16THEN1360
1320 IFZE=2THENIA=IA+1:R2=IA:GOTO1500
1330 IFZE=3THEN1410
1340 IFZE=4THENLF=1:GOTO2190
1350 :
1360 _W7,5,24,13,2:_S9,7,"[196]IESE [196]ATENDISKETTE":_S9,9,"IST [194]EREITS VOLL [220]"
1370 _S9,11,"[194]ITTE LEGEN [211]IE EINE":_S9,13,"NEUE EIN.":_S15,15,"'[212]ASTE'"
1380 GOSUB630:IF(X$="_"ORX$="")ANDSF=0THEN480
1390 _R:GOTO1200
1400 :
1410 VF=0:FORI=1TOIA:FORJ=0TO2:IFIH$(I,J)=NM$(J)THENVF=VF+1
1420 NEXTJ:IFVF=3THENR2=I:I=IA+1:NEXT:GOTO1470
1430 VF=0:NEXTI:_W3,6,33,11,2:_S5,8,"[194]ITTE LEGEN [211]IE DIEJENIGE"
1440 _S5,10,"[196]ISKETTE EIN, AUF DER SICH":_S5,12,"DIE AKTUELLE [196]ATEI BEFINDET [220]"
1450 _S14,14,"'[212]ASTE'":GOSUB630:IFX$=""THEN480
1460 _R:GOTO1200
1470 FORI=0TO25:FORJ=0TO3:V2$(I,J)=VR$(I,J):N2$(I,J)=NA$(I,J):NEXTJ,I
1480 FORI=0TO2:IH$(R2,I)=NM$(I):NEXTI:VF=1:GOTO1510
1490 :
1500 IFXF=1THENFORI=0TO2:IH$(R2,I)="":NEXT:XF=0
1510 _W3,6,33,7,6:_S4,7,"[206]AME     : "IH$(R2,0):_S4,9,"[203]LASSE   : "IH$(R2,1)
1520 _S4,11,"[211]CHULJAHR: "IH$(R2,2)
1530 F=1:EX$="_[145]"
1540 ONFGOSUB1630,1640,1650
1550 IFX$=""ANDSF=0THEN480
1560 IFX$=""ORX$="_"THEN:_R:GOTO1200
1570 IFIH$(R2,F-1)=""THEN1540
1580 IF(X$=""ORX$=CR$)ANDF<3THENF=F+1:GOTO1540
1590 IFX$=""THENF=1:GOTO1540
1600 IFX$="[145]"ANDF>1THENF=F-1:GOTO1540
1610 IFX$="[145]"THENF=3:GOTO1540
1620 GOTO1670
1630 _F15,7,20,BU$,EX$,IH$(R2,0),X$:RETURN
1640 _F15,9,9,BU$+"",EX$,IH$(R2,1),X$:RETURN
1650 _F15,11,5,"/",EX$,IH$(R2,2),X$:RETURN
1660 :
1670 _W1,4,37,14,6:_S14,23,"<F 1>:[198]ACH+ <F 5>:[204]\SCHEN"
1680 _S14,24,"<F 3>:[198]ACH- <F 7>:[198]ERTIG":I=0:EX$="_[133][134][135][136][145]"
1690 _S2,5,"[198]ACH"I+1"[157][146] ":_S3,7,"[194]EZ.: "LEFT$(L$,12):_S9,7,N2$(I,3)
1700 FORJ=0TO2:_S3,9+J*2,J+1"[157]. [194]EZ.: "LEFT$(L$,10):_S13,9+J*2,N2$(I,J)
1710 _S24,9+J*2,"[193]NTEIL:     ":_S32,9+J*2,V2$(I,J):NEXTJ
1720 _S3,15,"[199]ESAMTANTEIL:    ":_S17,15,V2$(I,3):F=1
1730 ONFGOSUB1890,1900,1910,1900,1910,1900,1910,1920
1740 IFX$=""ANDSF=0THEN480
1750 IFX$=""THEN:_R:GOTO1200
1760 IFX$="_"THEN:_C:GOSUB710:GOSUB740:GOTO1530
1770 IF(X$=CR$ORX$="")ANDF<8THENF=F+1:GOTO1730
1780 IFX$=""THENF=1:GOTO1730
1790 IFX$=CR$ANDI=25THEN1870
1800 IFX$="[145]"ANDF>1THENF=F-1:GOTO1730
1810 IFX$="[145]"THENF=8:GOTO1730
1820 IF(X$="[133]"ORX$=CR$)ANDI<25THENI=I+1:GOTO1690
1830 IFX$="[133]"THENI=0:GOTO1690
1840 IFX$="[134]"ANDI>0THENI=I-1:GOTO1690
1850 IFX$="[134]"THENI=25:GOTO1690
1860 IFX$="[135]"THENFORJ=0TO3:N2$(I,J)="":V2$(I,J)="":NEXT:GOTO1690
1870 FORJ=0TO25:IFN2$(J,3)<>""THENJ=26:NEXT:GOTO1940
1880 NEXT:GOTO1730
1890 _F9,7,12,BU$,EX$,N2$(I,3),X$:RETURN
1900 _F13,9+(F-2),10,BU$,EX$,N2$(I,F/2-1),X$:RETURN
1910 _F32,8+(F-2),3,"",EX$,V2$(I,(F-3)/2),X$:RETURN
1920 _F17,15,3,"",EX$,V2$(I,3),X$:RETURN
1930 :
1940 I2=I:GF=0:GOSUB510:IFX$=""ANDSF=0THEN480
1950 IFX$=""THEN:_R:GOTO1200
1960 IFX$="_"THENI=I2:GOTO1690
1970 _W5,7,28,9,0:_S7,9,"[144][196]IE [196]ATEI WIRD ANGELEGT."
1980 _S7,11,"[194]ITTE EINEN [205]OMENT":_S7,13,"[199]EDULD ...":DN$=STR$(R2)
1990 OPEN1,8,15,"S:INHALT":PRINT#1,"S:"+DN$+".S":CLOSE1
2000 OPEN2,8,2,"INHALT,S,W":PRINT#2,IA
2010 FORI=1TOIA:PRINT#2,IH$(I,0)CR$IH$(I,1)CR$IH$(I,2):NEXT:CLOSE2
2020 GOSUB600:IFER<>0THENGOSUB670:GOTO2000
2030 ONLFGOTO2520:AF=0:FORI=0TO25:IFN2$(I,3)=""THENNEXT:GOTO2070
2040 FORJ=0TO3:IFN2$(I,J)=""THENN2$(I,J)=" "
2050 IFV2$(I,J)=""THENV2$(I,J)=" "
2060 NA$(AF,J)=N2$(I,J):VR$(AF,J)=V2$(I,J):NEXTJ:AF=AF+1:NEXTI
2070 FORI=0TO2:NM$(I)=IH$(R2,I):NEXT
2080 OPEN2,8,2,DN$+".S,S,W":PRINT#2,AF:FORI=0TOAF-1
2090 FORJ=0TO3:PRINT#2,NA$(I,J)CR$VR$(I,J):NEXTJ,I:CLOSE2
2100 GOSUB600:IFER<>0THENGOSUB670:_R:SF=1:GOTO1200
2110 IFVF=1THEN2160
2120 FORI=0TO1872:N$(I)="":NEXT:FORI=AFTO25:NA$(I,3)="":NEXT
2130 OPEN2,8,2,DN$+".R,L,"+CHR$(5)
2140 OPEN1,8,15,"P"+CHR$(2)+CHR$(80)+CHR$(7)+CHR$(1):PRINT#2,CHR$(255):CLOSE1
2150 CLOSE2:GOSUB600:IFER<>0ANDER<>50THENGOSUB670:_R:SF=1:GOTO1200
2160 _S1,21,LEFT$(L$,20)""LEFT$(L$,9)"       "
2170 _S1,21,"[144]"NM$(0):_S22,21,NM$(1):_S33,21,NM$(2)"":SF=0:GOTO480
2180 :
2190 _W0,2,40,18,6:_S5,3,"[144][206]AME"TAB(22)"[203]LASSE    [211]CHULJ."
2200 FORJ=0TO2:FORI=1TOIA:LI$(J*IA+I)=IH$(IA-I+1,J):NEXTI,J
2210 _A1,4,6,LI$(1),IA:_A22,4,6,LI$(IA+1),IA:_A33,4,6,LI$(2*IA+1),IA
2220 AS=1:SP(1,0)=1:SP(1,1)=4:SP(1,2)=38:SP(1,3)=IA:GOSUB300
2230 IFX$=""ANDSF=0THEN480
2240 IFX$=""ORX$="_"THEN:_R:GOTO1200
2250 FORI=0TO2:IFIH$(IA-ZE+1,I)<>NM$(I)THENI=3:NEXT:GOTO2270
2260 NEXT:L2=1:SF=0:IFLF=0THEN480
2270 _ISP(SP,0),SP(SP,1)+ZE-1,SP(SP,2),1,0:GOSUB510:IFX$=""ANDSF=0THEN480
2280 IFX$=""THEN:_R:GOTO1200
2290 IFX$="_"THEN:_C:GOTO2190
2300 ONLFGOTO2390:_W11,8,18,7,0:_S13,10,"[144][196]IE [196]ATEI WIRD":_S13,12,"GELADEN ..."
2310 DN$=STR$(IA-ZE+1):OPEN2,8,2,DN$+".S,S,R":INPUT#2,AF
2320 FORI=0TOAF-1:FORJ=0TO3:INPUT#2,NA$(I,J),VR$(I,J):NEXTJ,I:CLOSE2
2330 GOSUB600:IFER<>0THENGOSUB670:_R:SF=1:GOTO1200
2340 IFAF<26THENFORI=AFTO25:FORJ=0TO3:NA$(I,J)="":VR$(I,J)="":NEXTJ,I
2350 OPEN2,8,2,DN$+".R":OPEN1,8,15,"P"+CHR$(2)+CHR$(1)+CHR$(0)+CHR$(1)
2360 FORI=1TO1872:INPUT#2,N$(I):IFN$(I)="[255]"THENN$(I)=""
2370 NEXT:CLOSE1:CLOSE2:GOSUB600:IFER<>0THENGOSUB670:_R:SF=1:GOTO1200
2380 FORI=0TO2:NM$(I)=IH$(IA-ZE+1,I):NEXT:GOTO2160
2390 _W5,7,27,9,2:_S7,9,"[211]OLL DIE ENTSPRECHENDE"
2400 _S7,11,"[196]ATEI WIRKLICH GEL\SCHT":_S7,13,"WERDEN ?  ([202]/[206])"
2410 GOSUB630:IFX$=""ANDSF=0THEN480
2420 IFX$=""THEN:_R:GOTO1200
2430 IFX$="_"ORX$="N"THEN:_C:_C:GOTO2190
2440 IFX$<>"J"THEN2410
2450 _C:_W5,7,28,9,0:_S7,9,"[144][196]IE [196]ATEI WIRD GEL\SCHT."
2460 _S7,11,"[194]ITTE EINEN [205]OMENT":_S7,13,"[199]EDULD ...":D2$=STR$(IA-ZE+1)
2470 OPEN1,8,15,"S:"+D2$+".S":PRINT#1,"S:"+D2$+".R":PRINT#1,"S:INHALT"
2480 D2=VAL(D2$):IFD2=IATHEN2510
2490 FORI=D2TOIA-1:PRINT#1,"R:"STR$(I)".S="STR$(I+1)".S"
2500 PRINT#1,"R:"STR$(I)".R="STR$(I+1)".R":FORJ=0TO2:IH$(I,J)=IH$(I+1,J):NEXTJ,I
2510 CLOSE1:IA=IA-1:GOTO2000
2520 _R:IFL2=1THENRUN
2530 IFSF=1THEN1200
2540 DN=VAL(DN$):IFD2<DNTHENDN$=STR$(DN-1)
2550 GOTO480
2560 :
2570 REM****************************
2580 REM*        EINGABE           *
2590 REM****************************
2600 :
2610 GOSUB710:GOSUB740:GOSUB800:IFX$="_"ORX$=""THEN480
2620 _W0,2,40,18,6:_S INT((39-LEN(NA$(NF,3)))/2),3,""NA$(NF,3)
2630 _S14,23,"<F 1>:[196]RUCKEN":_S14,24,"<F 7>:[198]ERTIG"
2640 _S0,4,"[171][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][179]"
2650 _S1,5,NA$(NF,0)":":_S13,5,"[221]"NA$(NF,1)":":_S26,5,"[221]"NA$(NF,2)":"
2660 _S13,6,"[221]"SPC(12)"[221]":_S13,19,"[177]"SPC(12)"[177]"
2670 FORI=0TO2:_S1+I*13,6,LEFT$(S$,LEN(NA$(NF,I))+1):NEXT
2680 FORI=0TO11:_S1,7+I,"[190]    [191][190]    [191][221][190]    [191][190]    [191][221][190]    [191][190]    [191]":NEXT
2690 AS=6:SP(1,0)=1:SP(1,1)=7:SP(1,2)=6:SP(1,3)=12
2700 FORI=2TO6:SP(I,0)=SP(I-1,0)+7+(I/2=INT(I/2)):SP(I,1)=7:SP(I,2)=6:SP(I,3)=12
2710 NEXT:FORI=0TO5:_ASP(I+1,0)+1,7,6,N$(PS+I*12+1),12:NEXT:SP=1:ZE=1
2720 EF=1:GOSUB310:IFX$<>CR$THEN2810
2730 E$=N$(PS+(SP-1)*12+ZE)
2740 _FSP(SP,0)+1,6+ZE,4,"#","_[136][133]",E$,X$
2750 IFE$=""THEN2790
2760 _O"#",E$,X%:IFX%=0ANDVAL(E$)<=0ORVAL(E$)>6THEN2740
2770 IFX%=0THEN2790
2780 T=VAL(RIGHT$(E$,X%+1)):IFT<0ORT>15ORT<>INT(T)THEN2740
2790 N$(PS+(SP-1)*12+ZE)=E$:IFX$<>CR$THEN2810
2800 GOTO2720
2810 GF=0:IFX$="[133]"THENGF=1
2820 X2$=X$:GOSUB510:IFX$="_"THEN2720
2830 IFX$=""THEN2810
2840 IFGF=1THEN2950
2850 X$=X2$:GOSUB930:HB=INT((PS+1)/256):LB=(PS+1)-256*HB:OPEN2,8,2,DN$+".R"
2860 OPEN1,8,15,"P"+CHR$(2)+CHR$(LB)+CHR$(HB)+CHR$(1)
2870 FORI=1TO72:IFX$=""THENINPUT#2,N$(PS+I):IFN$(PS+I)="[255]"THENN$(PS+I)=""
2880 IFX$=""THENNEXT:GOTO2910
2890 IFN$(PS+I)<>""THENPRINT#2,N$(PS+I):NEXT:GOTO2910
2900 PRINT#2,"[255]":NEXT
2910 CLOSE1:CLOSE2:GOSUB600:IFER<>0THENGOSUB670:IFX$=""THEN480
2920 IFER<>0THEN:_C:CLOSE2:GOTO2850
2930 IFX$="_"THEN:_R:GOTO2610
2940 GOTO480
2950 OPEN4,8+SA
2960 A$=NA$(NF,3):PRINT#4,CR$;""A$"[146]";:FORI=1TO80-LEN(A$):PRINT#4,"-";:NEXT
2970 PRINT#4,CR$:FORI=0TO2:A$=NA$(NF,I):IFA$=""THENNEXTI:GOTO3010
2980 PRINT#4,""A$SPC(12-LEN(A$))":  ";:FORJ=0TO1:IFJ=1THENPRINT#4,CR$;SPC(15);
2990 FORK=1TO12:PRINT#4,N$(PS+I*24+J*12+K)" ";:NEXTK,J
3000 PRINT#4,CR$:NEXTI
3010 FORI=1TO80:PRINT#4,"-";:NEXT:PRINT#4,CR$:CLOSE4:GOTO2720
3020 :
3030 REM****************************
3040 REM*         ZEIGEN           *
3050 REM****************************
3060 :
3070 GOSUB710:GOSUB740:_W14,8,12,4,6
3080 AS=1:SP(1,0)=15:SP(1,1)=9:SP(1,2)=10:SP(1,3)=2
3090 _S15,9,"[197]INZELFACH":_S15,10,"[199]ESAMT"
3100 GOSUB300:IFX$<>CR$THEN480
3110 IFZE=2THEN3380
3120 GOSUB800:IFX$="_"THEN:_C:GOTO3080
3130 IFX$=""THEN480
3140 _S14,23,"<F 1>:[196]RUCKEN"
3150 GOSUB930:GOSUB960:_C:_C:IFGV=0THEN3250
3160 _W4,4,31,14,6
3170 _S INT((39-LEN(NA$(NF,3)))/2),5,""NA$(NF,3):_S6,8,"[197]INZELNOTEN:"
3180 FORI=0TO2:_S8,10+I,NA$(NF,I)TAB(19)":  ";:IFNF(I)=0THENNEXT:GOTO3210
3190 DN(NF,I)=INT(DN(NF,I)*100+.5)/100:DP(NF,I)=INT(DP(NF,I)+.5)
3200 PRINTSTR$(DN(NF,I))TAB(28)STR$(DP(NF,I)):_S28,10+I,"#":NEXT
3210 _S22,13,"[192][192][192][192][192][192][192][192][192][192]":_S6,15,"[199]ESAMTNOTE :"TAB(22)DN(NF,3)TAB(28)DP(NF,3)
3220 _S28,15,"#":GOSUB630:IFX$="_"THEN3270
3230 IFX$="[133]"THEN3280
3240 GOTO480
3250 _W8,6,23,9,2:_S10,8,"[218]U DIESEM [198]ACH GIBT":_S13,10,"ES NOCH KEINE"
3260 _S15,12,"[197]INGABEN !":GOSUB630:IFX$=""THEN480
3270 _C:GOSUB710:GOSUB740:GOTO3120
3280 GF=1:GOSUB510:IFX$="_"THEN3220
3290 IFX$=""THEN480
3300 OPEN4,8+SA
3310 A$=NA$(NF,3):PRINT#4,CR$;""A$"[146]";:FORI=1TO30-LEN(A$):PRINT#4,"-";:NEXT
3320 PRINT#4,CR$:FORI=0TO2:A$=NA$(NF,I):IFA$=""THENNEXTI:GOTO3340
3330 A$=NA$(NF,I):PRINT#4,""A$SPC(12-LEN(A$))": "DN(NF,I)"  #"DP(NF,I):NEXT
3340 PRINT#4,SPC(14)"[192][192][192][192][192][192][192][192][192][192][192][192][192]";CR$
3350 PRINT#4,"[199]ESAMTNOTE  : "DN(NF,3)"  #"DP(NF,3);CR$
3360 FORI=1TO30:PRINT#4,"-";:NEXT:PRINT#4,CR$:CLOSE4:GOTO3220
3370 :
3380 _S14,23,"<F 1>:[196]RUCKEN":GOSUB930
3390 GN=0:GP=0:NV=0:FORNF=0TOAF-1:GOSUB960:IFGV=0THENEV=0:GOTO3420
3400 EV=VAL(VR$(NF,3)):DN$(NF)=STR$(DN(NF,3)):DP$(NF)=STR$(DP(NF,3))
3410 DP$(NF)="#"+RIGHT$(DP$(NF),LEN(DP$(NF))-1)
3420 GN=GN+EV*DN(NF,3):GP=GP+EV*DP(NF,3):NV=NV+EV:NEXT:_C:IFNV=0THEN3510
3430 GN=INT((GN/NV)*100+.5)/100:GP=INT(GP/NV+.5):_W0,2,40,18,6
3440 FORI=0TO1:_A1+19*I,3,6,NA$(I*13,3),13:_A11+I*19,3,6,DN$(I*13),13
3450 _A17+I*19,3,6,DP$(I*13),13:NEXT
3460 _S5,17,"[199]ESAMTDURCHSCHNITT: "GN" "TAB(32)GP:_S32,17,"#"
3470 GOSUB630:IFX$="[133]"THEN3530
3480 FORI=0TO25:DN(I,3)=0:DP(I,3)=0:DN$(I)="":DP$(I)="":NEXT
3490 IFX$="_"THEN:_R:GOTO3070
3500 GOTO480
3510 _W9,6,22,9,2:_S12,8,"[197]S WURDEN BISHER":_S15,10,"NOCH KEINE"
3520 _S11,12,"[197]INGABEN GEMACHT !":GOSUB630:GOTO480
3530 GF=1:GOSUB510:IFX$="_"THEN3470
3540 IFX$=""THEN480
3550 OPEN4,8+SA:PRINT#4,CR$;""NM$(0)"   "NM$(1)"   "NM$(2)
3560 FORI=1TO40:PRINT#4,"-";:NEXT:PRINT#4,CR$
3570 FORI=0TO25:A$=NA$(I,3):IFA$=""THENNEXT:GOTO3590
3580 PRINT#4,""A$SPC(12-LEN(A$))": "DN$(I)SPC(7-LEN(DN$(I)))DP$(I):NEXT
3590 PRINT#4,CR$"[199]ESAMTDURCHSCHNITT: "GN"  #"GP;CR$
3600 FORI=1TO40:PRINT#4,"-";:NEXT:PRINT#4,CR$:CLOSE4:GOTO3470
3610 :
3620 REM****************************
3630 REM*         EXTRAS           *
3640 REM****************************
3650 :
3660 GOSUB710:GOSUB740:_W13,8,14,4,6
3670 AS=1:SP(1,0)=14:SP(1,1)=9:SP(1,2)=12:SP(1,3)=2
3680 _S14,9,"[206]OTENTABELLE":_S14,10,"[196]RUCKER"
3690 GOSUB300:IFX$<>CR$THEN480
3700 IFZE=2THEN3760
3710 _W6,2,28,18,6:_S8,3,"[208]UNKTE[190]"TAB(26)"[191][206]OTEN";
3720 FORI=0TO15:_S15,3+I,ITAB(19)"- ";
3730 FORJ=0TO3:PRINTCHR$(PEEK(NT+I*4+J));:NEXTJ,I:GOSUB630
3740 IFX$="_"THEN:_C:GOTO3690
3750 GOTO480
3760 _W8,8,24,5,6:_S10,10,"[211]EKUND@RADRESSE:":E$=SA$
3770 _F27,10,3,"","_",E$,X$:IFX$<>CR$THEN3740
3780 SA=-8+VAL(E$):IFSA<-8ORSA>247ORSA<>INT(SA)ORE$=""THEN3770
3790 SA$=E$:GOTO480
3800 :
3810 REM****************************
3820 REM*          ENDE            *
3830 REM****************************
3840 :
3850 GOSUB710:GOSUB740:_W9,6,21,9,2:_S11,8,"[211]OLL DAS [208]ROGRAMM"
3860 _S11,10,"WIRKLICH BEENDET":_S11,12,"WERDEN ?  ([202]/[206])"
3870 GOSUB630:IFX$=""ORX$="_"ORX$="N"THEN480
3880 IFX$<>"J"THEN3870
3890 SYS64738